home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / cg.lha / cg / src / TypeTab.m < prev    next >
Text File  |  1992-11-24  |  6KB  |  190 lines
  1. INTEGER
  2. # define beginINTEGER(a)    
  3. # define closeINTEGER(a)    
  4. # define readINTEGER(a)        a := IO.ReadI (yyf);
  5. # define writeINTEGER(a)    IO.WriteI (yyf, a, 0);
  6. # define getINTEGER(a)        yyGet (a);
  7. # define putINTEGER(a)        yyPut (a);
  8. # define copyINTEGER(a, b)    
  9. # define equalINTEGER(a, b)    a = b
  10. SHORTINT
  11. # define beginSHORTINT(a)    
  12. # define closeSHORTINT(a)    
  13. # define readSHORTINT(a)    a := IO.ReadI (yyf);
  14. # define writeSHORTINT(a)    IO.WriteI (yyf, a, 0);
  15. # define getSHORTINT(a)        yyGet (a);
  16. # define putSHORTINT(a)        yyPut (a);
  17. # define copySHORTINT(a, b)    
  18. # define equalSHORTINT(a, b)    a = b
  19. LONGINT
  20. # define beginLONGINT(a)    
  21. # define closeLONGINT(a)    
  22. # define readLONGINT(a)        a := IO.ReadI (yyf);
  23. # define writeLONGINT(a)    IO.WriteI (yyf, a, 0);
  24. # define getLONGINT(a)        yyGet (a);
  25. # define putLONGINT(a)        yyPut (a);
  26. # define copyLONGINT(a, b)    
  27. # define equalLONGINT(a, b)    a = b
  28. CARDINAL
  29. # define beginCARDINAL(a)    
  30. # define closeCARDINAL(a)    
  31. # define readCARDINAL(a)    a := IO.ReadI (yyf);
  32. # define writeCARDINAL(a)    IO.WriteI (yyf, a, 0);
  33. # define getCARDINAL(a)        yyGet (a);
  34. # define putCARDINAL(a)        yyPut (a);
  35. # define copyCARDINAL(a, b)    
  36. # define equalCARDINAL(a, b)    a = b
  37. SHORTCARD
  38. # define beginSHORTCARD(a)    
  39. # define closeSHORTCARD(a)    
  40. # define readSHORTCARD(a)    a := IO.ReadI (yyf);
  41. # define writeSHORTCARD(a)    IO.WriteI (yyf, a, 0);
  42. # define getSHORTCARD(a)    yyGet (a);
  43. # define putSHORTCARD(a)    yyPut (a);
  44. # define copySHORTCARD(a, b)    
  45. # define equalSHORTCARD(a, b)    a = b
  46. LONGCARD
  47. # define beginLONGCARD(a)    
  48. # define closeLONGCARD(a)    
  49. # define readLONGCARD(a)    a := IO.ReadI (yyf);
  50. # define writeLONGCARD(a)    IO.WriteI (yyf, a, 0);
  51. # define getLONGCARD(a)        yyGet (a);
  52. # define putLONGCARD(a)        yyPut (a);
  53. # define copyLONGCARD(a, b)    
  54. # define equalLONGCARD(a, b)    a = b
  55. REAL
  56. # define beginREAL(a)        
  57. # define closeREAL(a)        
  58. # define readREAL(a)        a := IO.ReadR (yyf);
  59. # define writeREAL(a)        IO.WriteR (yyf, a, 0, 6, 1);
  60. # define getREAL(a)        yyGet (a);
  61. # define putREAL(a)        yyPut (a);
  62. # define copyREAL(a, b)        
  63. # define equalREAL(a, b)    a = b
  64. LONGREAL
  65. # define beginLONGREAL(a)    
  66. # define closeLONGREAL(a)    
  67. # define readLONGREAL(a)    a := IO.ReadR (yyf);
  68. # define writeLONGREAL(a)    IO.WriteR (yyf, a, 0, 6, 1);
  69. # define getLONGREAL(a)        yyGet (a);
  70. # define putLONGREAL(a)        yyPut (a);
  71. # define copyLONGREAL(a, b)    
  72. # define equalLONGREAL(a, b)    a = b
  73. BOOLEAN
  74. # define beginBOOLEAN(a)    
  75. # define closeBOOLEAN(a)    
  76. # define readBOOLEAN(a)        a := IO.ReadB (yyf);
  77. # define writeBOOLEAN(a)    IO.WriteB (yyf, a);
  78. # define getBOOLEAN(a)        yyGet (a);
  79. # define putBOOLEAN(a)        yyPut (a);
  80. # define copyBOOLEAN(a, b)    
  81. # define equalBOOLEAN(a, b)    a = b
  82. CHAR
  83. # define beginCHAR(a)        
  84. # define closeCHAR(a)        
  85. # define readCHAR(a)        a := IO.ReadC (yyf);
  86. # define writeCHAR(a)        IO.WriteC (yyf, a);
  87. # define getCHAR(a)        yyGet (a);
  88. # define putCHAR(a)        yyPut (a);
  89. # define copyCHAR(a, b)        
  90. # define equalCHAR(a, b)    a = b
  91. BITSET
  92. # define beginBITSET(a)        
  93. # define closeBITSET(a)        
  94. # define readBITSET(a)        yyReadHex (a);
  95. # define writeBITSET(a)        yyWriteHex (a);
  96. # define getBITSET(a)        yyGet (a);
  97. # define putBITSET(a)        yyPut (a);
  98. # define copyBITSET(a, b)    
  99. # define equalBITSET(a, b)    a = b
  100. BYTE
  101. # define beginBYTE(a)        
  102. # define closeBYTE(a)        
  103. # define readBYTE(a)        yyReadHex (a);
  104. # define writeBYTE(a)        yyWriteHex (a);
  105. # define getBYTE(a)        yyGet (a);
  106. # define putBYTE(a)        yyPut (a);
  107. # define copyBYTE(a, b)        
  108. # define equalBYTE(a, b)    a = b
  109. WORD
  110. # define beginWORD(a)        
  111. # define closeWORD(a)        
  112. # define readWORD(a)        yyReadHex (a);
  113. # define writeWORD(a)        yyWriteHex (a);
  114. # define getWORD(a)        yyGet (a);
  115. # define putWORD(a)        yyPut (a);
  116. # define copyWORD(a, b)        
  117. # define equalWORD(a, b)    a = b
  118. ADDRESS
  119. # define beginADDRESS(a)    
  120. # define closeADDRESS(a)    
  121. # define readADDRESS(a)        yyReadHex (a);
  122. # define writeADDRESS(a)    yyWriteHex (a);
  123. # define getADDRESS(a)        yyGet (a);
  124. # define putADDRESS(a)        yyPut (a);
  125. # define copyADDRESS(a, b)    
  126. # define equalADDRESS(a, b)    a = b
  127. tString
  128. # define begintString(a)    
  129. # define closetString(a)    
  130. # define readtString(a)        Strings.ReadL (yyf, a);
  131. # define writetString(a)    Strings.WriteL (yyf, a);
  132. # define gettString(a)        yyGet (a);
  133. # define puttString(a)        yyPut (a);
  134. # define copytString(a, b)    
  135. # define equaltString(a, b)    Strings.IsEqual (a, b)
  136. tStringRef
  137. # define begintStringRef(a)    
  138. # define closetStringRef(a)    
  139. # define readtStringRef(a)    
  140. # define writetStringRef(a)    StringMem.WriteString (yyf, a);
  141. # define gettStringRef(a)    
  142. # define puttStringRef(a)    
  143. # define copytStringRef(a, b)    
  144. # define equaltStringRef(a, b)    a = b
  145. tIdent
  146. # define begintIdent(a)        
  147. # define closetIdent(a)        
  148. # define readtIdent(a)        a := yyReadIdent ();
  149. # define writetIdent(a)        Idents.WriteIdent (yyf, a);
  150. # define gettIdent(a)        yyGetIdent (a);
  151. # define puttIdent(a)        yyPutIdent (a);
  152. # define copytIdent(a, b)    
  153. # define equaltIdent(a, b)    a = b
  154. tText
  155. # define begintText(a)        
  156. # define closetText(a)        
  157. # define readtText(a)        
  158. # define writetText(a)        Texts.WriteText (yyf, a);
  159. # define gettText(a)        
  160. # define puttText(a)        
  161. # define copytText(a, b)    
  162. # define equaltText(a, b)    FALSE
  163. tSet
  164. # define begintSet(a)        
  165. # define closetSet(a)        
  166. # define readtSet(a)        Sets.ReadSet (yyf, a);
  167. # define writetSet(a)        Sets.WriteSet (yyf, a);
  168. # define gettSet(a)        
  169. # define puttSet(a)        
  170. # define copytSet(a, b)        
  171. # define equaltSet(a, b)    Sets.IsEqual (a, b)
  172. tRelation
  173. # define begintRelation(a)    
  174. # define closetRelation(a)    
  175. # define readtRelation(a)    Relations.ReadRelation (yyf, a);
  176. # define writetRelation(a)    Relations.WriteRelation (yyf, a);
  177. # define gettRelation(a)    
  178. # define puttRelation(a)    
  179. # define copytRelation(a, b)    
  180. # define equaltRelation(a, b)    Relations.IsEqual (a, b)
  181. tPosition
  182. # define begintPosition(a)        
  183. # define closetPosition(a)        
  184. # define readtPosition(a)
  185. # define writetPosition(a)    Positions.WritePosition (yyf, a);
  186. # define gettPosition(a)        
  187. # define puttPosition(a)        
  188. # define copytPosition(a, b)        
  189. # define equaltPosition(a, b)    Positions.Compare (a, b) = 0
  190.